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1. 


Run Time Aborts 


INTRODUCTION 


This note is intended for programmers who want the ability to trace, through the abort address, the 
location of an error in their program. 


A run time abort is MPE’s mechanism to handle an irrecoverable situation encountered when a 
process is executing and there is no user trap facility in place. 


In this note, an examination of some of the causes of these run time aborts will be made. The steps 
that MPE executes once the decision to abort has been made, will be explained. The components of 
an abort and the messages will be explained in order to use that information, along with a compiler 
listing and PMAP, to trace the address to the source of the abort. Also included, are two examples of 
abort situations with detailed instructions on locating the source statement causing the abort. 


WHAT CAUSES A RUN TIME ABORT? 


An explanation of some of the causes of these aborts and why the decision to terminate an executing 
process was made, will help with the error detection process. 


A. LIBRARY ROUTINE (SUBSYSTEM’S LIBRARIES): 


A process might be aborted because a subsystem library routine has encountered a problem. 
Suppose a READ is done from a FORTRAN program. A FORTRAN library routine is called 
to do the I/O. If an unexpected EOF is detected or a data format problem occurs and the 
library routine cannot complete the operation, it may have to abort the program. 


Library routines called by COBOL, SORT, RPG, BASIC (compiled), etc. may all encounter 
similar situations. Many times it is possible to programmatically tell the library routine, in 
advance, what to do if a particular error occurs. Programmers: can even write their own 
customize error recovery routines called user trap routines. 


B. MPE INTRINSICS: 


An MPE intrinsic may abort a process - the cause depends very much on each individual 
intrinsics’ requirements. The abort could be caused by a missing parameter, a bad parameter 
value or address being passed, or a parameter that is the wrong data type. Another possibility 
is that, in order to use the intrinsic, the program file must have some special capability (i.e., 
DS, MR, PH) but has not been prepped with these capabilities. In any case, the intrinsic decides 
the situation requires special attention and it asks MPE to abort the program. 


C. HARDWARE/MPE: 


For the protection of other users and the system as a whole, the HP3000 routinely checks for 
errors. These errors detected by the hardware or MPE could cause an abort. For instance, if a 
data value maximum is exceeded during an arithmetic operation, the hardware detects the 
problem. An example would be attempting to add +1 to the integer value 32767 which would 
result in an INTEGER OVERFLOW. The hardware might also encounter a bad instruction 
which would result in an INVALID INSTRUCTION error or an invalid address for code which 
would result in a CST VIOLATION. 


MPE will abort a program when a stack requires more space than the programmer has 
specified as necessary or when a stack requires more that the maximum stack space allowed by 
MPE (32K). This results in a STACK OVERFLOW. This could be caused by the data stack 
actually being too large or possibly a recursive procedure call or looping situation. Each time 
the procedure is called, the data used by that procedure is placed on top of the stack. In an 
unchecked recursive call, data would continually be added to the stack until a STACK 
OVERFLOW occurred. 


Another cause for aborts is the improper indexing of arrays or the destruction of pointers by 
other programming errors. If the index or pointer references an area that does not lie within 


the bounds of the stack, a BOUNDS VIOLATION will occur and MPE will abort the program. 


This, of course, is not intended to be a complete list, but just some of the more common causes 
of abort situations the programmer may encounter. 


3. THE STEPS IN MPE’S ABORT MECHANISM 
If there is no user trap in effect and the system has made the decision to abort the process, MPE 
executes the following steps: 
A. The MPE error routines will print the abort address(es) and error messages. 
B. The process resources are given back as in a normal program termination. All files are closed. 
For new files, the data may be lost. Extra data segments (if private) are deleted. All RINS are 


unlocked and the data stack is deleted. The code segments are then unloaded. 


C. The Command Interpreter prints the final line - the abnormal termination message. 


4. THE COMPONENTS OF AN ABORT MESSAGE 


This is the standard format of an abort message: 


#1 #2 #3 #4 


[ ae ean ak eS ] 
ABORT : PRMAST. PUB. PAYROLL .%0.%65:SYSL.%214.%1153 


~ PROGRAM ERROR #20 :STACK OVERFLOW 


] 
PROGRAM TERMINATED IN AN ERROR STATE. (CIERR 976) 


#1. This is the name, group, and account of the program that has aborted. 


#2. The first set of octal numbers is the abort address within the user code. The first of these 
numbers is the user code segment where the abort occurred, code segment 0. The second octal 


number is the code offset into this segment, the location of the instruction within the segment, 
“65. 


#3. This information and the following set of octal addresses will only appear if the abort occured 
while executing SL code. SYSL indicates that the user code was calling a routine in SL.PUB.SYS 
when the abort occurred. This information also might have been PUSL indicating an address 
location in the SL of the local PUB group, or GUSL indicating an address in the SL of the local 
group other than PUB. 


#4, This next set of octal numbers are the code segment number and the code offset location that 
was being executed within the SL. oe 


#5. These message lines are the error messages giving the program error number and the cause of the 
abort, and Cl’s abnormal termination message. 


S. WHAT IS NEEDED TO TRACE THE ABORT? 


A. COMPILER LISTING 
The following listings are needed to trace the abort address. 


The programmer will need a compiler source listing that includes the code offsets and/or a 
symbolic table map. The different languages use options specified on the $CONTROL line of 
the source file: 


COBOLTI $CONTROL MAP, VERBS 


FORTRAN? 7? $CONTROL CODE OFFSETS 

PASCAL $CONTROL TABLES, CODE-OFFSETS 

SPL. $CONTROL MAP, ADR, INNERLIST 

BBASIC (LINE) 0001 GLOBAL COPTION ID, LABEL 
BASIC /3000 $CONTROL MAP . 

RPG $CONTROL MAP, CODE 


Depending upon the compiler used, these listings will have some differences. In some cases, the 
compiler listing will have two columns of numbers on the left side of the source statements. 
One column is the sequence numbers or editor line numbers. The other column is the starting 
location of the machine instruction code for each source statement. In other cases, the code 
offsets will be listed below all of the source statements, listing the editor statement number 
next to its corresponding starting code location. See the compiler listing examples in appendix 
A and B of this note. 


Note that the starting code locations are not consecutive locations because one high-level 
language statement can cause the compiler to issue many machine level instructions. 


B. PMAP_ 
Next, the programmer will need a Pmap. To get a Pmap listing, do the following: 


:FILE SEGLIST;DEV=LP (or the LDEV # of a printer) 
:PREP FTNUSL,FTNP; PMAP 


Refer to the Fortran example of the Pmap in appendix A of this note for the following 
explanation. 


The Pmap for the Fortran program, FTNP, contains two code segments: 


PROCESSDATA -- segment 0; 
MAINPROG -- segment 1. 


- The routines called from each of the code segments are listed below the segment name. The 
first routine that is listed within PROCESSDATA is PROCESSRTN. This routine is assigned 
STT 1 (Segment Transfer Table). This routine begins at word 0 of the code segment and, 
therefore, has a value of O under the "CODE" heading. The "ENTRY" point in the code 
segment is located at word 24. Each word of code for PROCESSRTN then follows until the 
last word of code is reached. This is a routine whose code is internal to this code segment. 


The following routines beginning with FTN__ are Fortran routines that do the error trapping, 
range checking, and I/O. These are external routines residing in an SL. Notice that there are 
7s under the heading "SEG" for all of the external routines. These will be resolved at LOAD 
time when the :RUN command is executed. These external routines are CALLED from this 
code segment but the actual code resides elsewhere. The second internal routine that is listed 
is SUM, STT 2, beginning at word 743 in this code segment. The internal routine, ZERO, STT 
3, begins at word 1062. 


In code segment 1, MAINPROG, are three types of routines. The first routine that is listed is 
MAIN ___ which is the main program outer block. This is internal to this code segment. The 
second routine (and most of the others) are external routines whose code resides in an SL. The 


third routine, PROCESSRTN, is external to this code segment, but does reside with this 
program file. Its segment number is already resolved as residing in code segment 0, 


PROCESSDATA. 


With these listings the abort address can now be traced. 


6. HOW TO TRACE THE ABORT ADDRESS. 


A. FORTRAN77 EXAMPLE 


Please refer to the Fortran compiler listing and PMAP in Appendix A of this note for this 
tracing example. 


ABORT :FTNP.PUB.FTNACCT.%0.%1030 
PROGRAM ERROR #24 :BOUNDS VIOLATION 


The first octal number in this abort example (%0) is the program-relative number of the code 
segment in which the abort occurred. The second octal number (%1030) is the address of the 
instruction that was executing when the abort occurred. This instruction could not 
successfully complete. Therefore, identifying this instruction will give an important clue to 
the cause of the abort. 


Another clue to keep in mind is the TYPE of error. Because this particular abort is a bounds 
violation, look for an operation that attempted to load or store outside the bounds of the data 
stack. 


1) Locate the Segment. 


“ 


Looking at the Pmap for FTNP. PUB. FTNACCT, locate the code segment which has the 
same relative segment number that appears in the abort message. In this example, code 
segment 0 is PROCESSDATA. 


2) Locate the Routine/Procedure. 


Next, determine which routine in PROCESSDATA was executing when the abort 
occurred. In the Pmap for this example, locate the second octal number (41030). Begin 
by looking down the "CODE" column to find a code location that is less than the abort 
location, but the next location in this column is greater than the abort location. The 
addresses shown on the Pmap and in the abort message, are “absolute” addresses which 
are code locations relative to the start of the code segment. What is needed, however, is 
a code location relative to the start of one of the routines in the segment. 


In this example, the abort occurred somewhere in the SUM routine. Code for this 
routine starts at location %743 which is less than the abort address, 41030, and the 
next code location is 41062 which is greater than %1030. 


At this point the programmer has the general location of the problem. In many 
cases this is sufficient. If not, continue the trace to the specific code location. 


Now convert the abort location to a routine-relative location. Do this by 
subtracting the starting code location for SUM from the abort code location. The 


result is the abort location relative to the start of the routine. 


%1030 
% 743 (This is OCTAL subtraction.) 


The abort occurred while executing the 65th code instruction in the routine SUM. 


3) Locate the Instruction. 
To locate the instruction, refer next, to the compiler listing. Just how to locate the 
source statement that corresponds to the relative location that we have calculated, 
depends on the compiler used. Each may provide different information concerning code 
locations. 


In this example, the program is a Fortran 77 program. The code locations on this listing 
were obtained by compiling with $CONTROL CODE__OFFSETS. These code offsets 
are listed after all the source statements. The numbers under the "STMT" heading on 
the CODE__OFFSETS listing correspond to the statement numbers on the left side of 
the compiler source listing. Each statement number on the CODE_ OFFSETS listing 
has a program code location (P-LOC) value associated with it. Looking at these P-LOC 
values, find a value that has a starting code location less than the calculated relative 
abort location, %65, with the next starting code location greater than %65. The code 
location that qualifies is at location %46, at statement number 6. This is the statement 
that was executing when the abort occurred. 


4) Determine the cause 


By examining the source statement, the reason for the abort may be obvious.” The 
program can be corrected and the trace was successful. 


Many times it is not so obvious, so a few items need to be considered: 

a. The type of abort that occurred; 

b. What typically causes this type of abort; 

c. What the code is actually doing when the source statement is executed. 


In this example, the type of abort is a bounds violation. The most likely cause is a 
subscript going out of bounds. This possibility should be checked first. This source 
statement would result in code that loads a subscripted array element to the top of stack 
(TOS) and adds it to a simple variable already loaded on TOS; the result is stored back 
into the simple variable. 


The subscript, I, happens to be the loop index. The bounds of the loop determines the 
values that will be used to subscript the array. The limit and step for the loop are 
actually passed in the parameters to the routine, SUM. It is very possible that the limit 
is too high and is out of the true bounds of the array (and our stack as well). 


Now find where SUM is called from PROCESSDATA. It is being called from two 
locations. Examine the parameters that are being passed. What determines these 


parameter values and what are the values? If this is not cleara PRINT or WRITE 
statement could be added to show what these values are, before each call to SUM. A 
debugger could also be used to verify the values. 


In this case, both calls to SUM are being passed the array, DATA. So where could the 
bounds of DATA be exceeded? DATA is dimensioned (12, NYRS). The LIMIT parameter 
will be either of these dimensioned, 12 or NYRS. In the line 16.000, SUM is called with 
the second parameter set to 122 instead of 12. This is the cause of the problem. 


B. COBOLII EXAMPLE 


Please refer to the COBOLII compiler listing and Pmap in Appendix B of this note for this 
tracing example. The Fortran 77 example provides more detailed information for tracing, so 
both examples should be read to have a good understanding of this process. 


ABORT :COBP.PUB.COBACCT .%2.%154:SYSL.%43.%3476 
PROGRAM ERROR #24 :BOUNDS VIOLATION. 


In this COBOLII example, the abort actually occurred while executing a routine in 
SL.PUB.SYS. However, the programmer should start with the abort location in the program 
code where the SL routine was called. This is most likely a Library routine or intrinsic call 
that was caused to abort by an error in the program code. 


1) Locate the Segment 


Again use the Pmap to identify the segment reported by the abort address. The abort 
occurred in code segment %2. Looking at this example’s Pmap, segment 2 is 
1OOPROCESSDA02 which can also be identified in the source compiler listing as 
100-PROCESS-DATA SECTION 02 in the main program. 


2) Locate the Procedure 


To determine which procedure was executing when the abort occurred, find a code 
location in the Pmap under the "CODE" heading that is less than the abort code location, 
“4154, but the next location in this column is greater than %154. In this code segment, 
there is only one procedure that is internal to this segment, 1|OOPROCESSDAO2. (The 
segment name and the procedure have the same name.) The procedure COBEXSUB is 
called from this segment but resides in code segment Oas shown by a O under the 
heading "SEG". All of the other routines are COBOLII Library routines residing in the 
SL. Therefore, the abort occurred while executing the %154 instruction in the the 
procedure 100PROCESSDAOQ?2. If there had been another internal procedure in this 
segment with a starting code location greater than the abort location, then the 
routine-relative location would need to be calculated as in the Fortran 77 example. 


3) Locate the Instruction 


From the Pmap, go to the PROCEDURE/VERB MAP of the main program: where 
100-PROCESS-DATA is located. 


= 


Note that each program and subprogram has its own Symbol Table Map and 
Procedure/Verb Map. Unlike the Pmap which is combined, these are maps of each 
individual program that is compiled with $CONTROL MAP, VERBS. 


This listing shows each procedure in this program and its relative PB (program base) 
location. Remember that the second half of the program’s abort address is the code 
offset into the segment where the error occurred. This location, %154 is the %154 code 
instruction in the procedure, 100-PROCESS-DATA. Find this location by looking 
down the column labeled PB-LOC. The value needed is a PB-LOC value that is greater 
than the abort location, but less than the following PB-LOC value. 


In this example, the largest PB-LOC is 4131. Because there is no other PB-LOCation in 
this procedure, the verb located at %131 was the last to execute. The error occurred 
trying to execute this last DISPLAY statement. 


4) Determine the Cause 


Next, look at the source listing and locate this source DISPLAY statement to determine 
why the abort occurred. This statement is 


DISPLAY TAB-PLAYER-NAME(PLX), TAB-PLAYER-NUM(PLY), 
TAB-BATTING-AVER(PLX) . 


The usual cause for a bounds violation is the improper indexing of an array. This array, 
TAB-PLAYER-RECORD, is indexed by PLX; however, the DISPLAY of one element in 
this array is subscripted by PLY. In Working-Storage, PLY has a value of 1000 which 
is meant to be the array index limit. This is in error because the array is defined as 
occurring 100 times. 


The bounds error could have occurred while attempting to add elements to the array 
that exceeded its limit. Although the bounds violation would probably not have 
occurred while attempting to add the 10Ist entry, it would have occurred when the 
program tried to add an entry in a location that exceeded the data limit of the stack. 
Other data on the stack could have been overwritten before the bounds error occurred. 


The array element, TAB-PLAYER-NUM, is mistakenly indexed by PLY which has a 
value of 1000. The COBOLII display routine in the SL attempted to display a location 
beyond the bounds of the stack and the abort occurred. 
7. SUMMARY 

The examples that were used are very simple programs, but the steps for tracing a run time abort 

are exactly the same for a large 10,000 line program with many subprograms, as well as, a small 

100 line program. Take the steps one at a time. 

1) Run a compiler listing with code locations or a map. 


2) Prep with the Pmap option. 


3) From the abort address, locate the code segment number on the Pmap. 4) Determine 
what procedure or routine was being called or performed at the time of the abort. 


5) Then use the code offsets on the compiler listing or the map to identify the statement or 
instruction that was being executed at the time of the abort. 


6) Once the instruction has been located, determine the possible causes for the abort. 
Knowing the program logic, the data,and what results are expected, is very useful in 
determining the likely cause. Locating the abort location sometimes is not conclusive. The 
abort could be the result of other programming errors and, therefore would point to the 
location of the abort, but not to the error itself. | 


For example, if a call was made to transfer data base information to a buffer and the 
buffer is too small to contain all of the information, then the following area of the data 
stack already containing valid data could be overwritten. If this overwritten area of the 
stack contains a stack marker, then a CST violation could occur. The program could not 
branch to a valid code location to continue executing. The abort address would point to 
the PCAL instruction that was made to an invalid location. It would not point to the 
transfer of data to the buffer which is the actual error. 
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HEW 


PENDIX A 


LETT-PACKARD HP32116A.00.11 


HP FORTRAN 77 (C) HEWLETT-PACKARD CO. 1986 WED, APR 6, 1988, 9:07 AM 


ou BRPWNH- OO 
ONOUBWND = 


STMT P-LOC 
1 000003 


.000 
.000 
.000 
.000 
.000 
.000 
.000 
.000 


$CONTROL SEGMENT “MAINPROG’ © 

$CONTROL USLINIT, CODE OFFSETS, RANGE 
WRITE(6,*) “HOW MANY YEARS?" 
READ(5,#) © NYRS 
CALL PROCESSRTN(NYRS) 
STOP 
END 


CODE OFFSETS 


STMT P-LOC STMT P-LOC STMT P-LOC STMT P-LOC 
2 000024 3 000035 4 000037 5 000042 


NUMBER OF ERRORS = 0 NUMBER OF WARNINGS = 0 
PROCESSOR TIME 0: O: 1 ELAPSED TIME 0: 0: 9 
NUMBER OF LINES = 8 


10 
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HP FORTRAN 77 (C) HEWLETT-PACKARD CO. 1986 WED, APR 6, 1988, 9:11 AM 


0 1.000 
9) 2.000 

1 3.000 

2 4.000 

2 5.000 

3 6.000 

4 7.000 

5 8.000 

5 9.000 

6 10.000 

7 11.000 

8 12.000 

8 13.000 

9 14.000 

10 15.000 

11 16.000 1 
12 17.000 1 
12 18.000 1 
13 19.000 

14 20.000 

15 21.000 1 
16 22.000 1 
16 23.000 1 
17 24.000 

17 25.000 

18 26.000 

19 27.000 

19 28.000 
20 29.000 
21 30.000 


STMT P-LOC STMT 
2 000026 2 
6 000154 4 
11 000237 12 


16 000447 17 


NUMBER OF ERRORS 
PROCESSOR TIME 
NUMBER OF LINES = 


$CONTR 
$CONTR 


OL SEGMENT ”“PROCESSDATA’ 

OL CODE OFFSETS, _ RANGE 

SUBROUTINE PROCESSRTN(NYRS) 

REAL DATA in (12,NYRS), TOTAL(NYRS), AVG(12) 


PRINT *,"enter data now" 
read ¥*, DATA‘ in 
WRITE(6,*) “after read" 


PRINT *,"call to zero” 
CALL ZERO(TOTAL ,NYRS) 


CALL ZERO(AVG,12) 


600 


700 


CO 


P-LOC 
000030 
000175 
000323 
000457 


0: Q: 
3 


PRINT #*,"first call to sum" 

DO I = 1, NYRS 

TOTAL(TI) =SUM(DATA in(t, I), 122,1) 
END DO . 


PRINT *, “second call to sum’ 

DO I=1,12 

AVG(I)=SUM(DATA in (I,1),NYRS,NYRS)/NYRS 
END DO 


WRITE(6,600) “YEARLY TOTALS", (1,TOTAL(I),1=1,NYRS) 


WRITE(6,600) “MONTHLY AVGS",(I,AVG(I),I=1 eee) 
FORMAT (1X,S/(14,2X,F16.3)) 


RETURN 
END 
D:& OnE AE eSBs 2S 
STMT P-LOC STMT P-LOC STMT P-LOC 
3 000074 4 000115 5 000133 
8 000200 9 000206 10 000227 
13 000332 14 000353 15 000355 
18 000556 20 000660 21 000661 


0 NUMBER OF WARNINGS = 0 
2 ELAPSED TIME 0: O:12 
0 
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HP FORTRAN 77 (C) HEWLETT-PACKARD CO. 1986 WED, APR 6, 1988, 9:11 AM 


0 1.000 $CONTROL SEGMENT ’PROCESSDATA’ 

0 2.000 $CONTROL CODE_OFFSETS, RANGE 

1 3.000 SUBROUTINE ZERO(ARY, LIMIT) 
2 4.000 REAL ARY (LIMIT) 

3 5.000 DO 11 = 1, LIMIT 

4 6.000 1 1 ARY(I) = 0.0 

5 7.900 RETURN 

6 8.000 END 


CODE OFFSETS 


STMT P-LOC STMT P-LOC STMT P-LOC STMT P-LOC STMT P-LOC 
2 000003 3 000005 4 000015 — § 000044 6 000045 


0 NUMBER OF WARNINGS = 0 


NUMBER OF ERRORS = 
PROCESSOR TIME OF OF 1 ELAPSED TIME 0: 0: 8 
NUMBER OF LINES = 8 


12 
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HP FORTRAN 77 (C) HEWLETT-PACKARD CO. 1986 WED, APR 6, 1988, 9:12 AM - 


0 1.000 $CONTROL SEGMENT ’PROCESSDATA’ 
0 2.000 $CONTROL CODE OFFSETS, RANGE 

1 3.000 FUNCTION SUM(ARY, LIMIT, STEP) 
2 4.000 REAL ARY(LIMIT) 

3 5.000 INTEGER STEP 

4 6.000 XSUM = 0.0 | 

5 7.000 DO I = 1, LIMIT, STEP 

6 8.000 1 XSUM = XSUM + ARY(I) 

7 9.000 1 - SUM = XSUM 

8 10.000 1 END DO 

9 11.000 RETURN 

10 12.000 END 


CODE OFFSETS 


STMT P-LOC STMT P-LOC STMT P-LOC STMT P-LOC STMT P-LOC 


2 000003 4 000005 5 000007 6 000046 % 000070 
8 000071 9 000112 10 000113 

NUMBER OF ERRORS = QO NUMBER OF WARNINGS = 0 

PROCESSOR TIME 0: 0: 1 ELAPSED TIME 0: O: 8 

NUMBER OF LINES = 12 


PROGRAM FILE FTNP. PUB. FTNACCT 


PROCESSDATA 0 
NAME STT CODE ENTRY SEG 
PROCESSRTN 1 0 24 
FTN RANGE_ERR 4 ? 
FTN E_RSLE 5 ? 
FTN S RSLE 6 ? 
FTN E WSLE 7 ? 
FTN S WSLE 10 ? 
FTN DO R4IO 11 ? 
FTN DO I4I0 12 ? 
FTN DO CHIO . ‘13 ? 
FTN E _WSFE 14 ? 
FTN S WSFE 15 ? 
FTN DO _R4IOA 16 ? 
SUM 2 743 744 
FTN LOOP_ERR 17 ? 
ZERO 3 1062 1063 
SEGMENT LENGTH  — 1150 

MAINPROG 1 
NAME STT CODE ENTRY SEG 
MAIN _ 1 0 1 
FTN S STOP 2 ? 


PROCESSRTN 3 0 

FTN E RSLE 4 ? 

FTN S RSLE 5 ? 

FTN E WSLE 6 ? 

FTN S WSLE r ? 

FTN DO I4I0 10 ? 

FTN DO CHIO 11 ? 

FTN F_EXIT 12 ? 

TERMINATE’ 13 ? 

SEGMENT LENGTH 74 es | 
PRIMARY DB OQ INITIAL STACK 10240 CAPABILITY 600 
SECONDARY DB O INITIAL DL. 0 TOTAL CODE 1244 
TOTAL DB 0 | MAXIMUM DATA 2. TOTAL RECORDS 12 


ELAPSED TIME 00:00:01.918 PROCESSOR TIME 00:00.711 


14 


COBOLII 
C 


00001 COBCNTL 
00002 COBCNTL 


00003 COBCNTL 
00004 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 © 
00029 
00030 
00031 


00032 


00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 


APPENDIX B 


PAGE 0001 HEWLETT-PACKARD 32233A.01.07 [74] COBOL II/V FRI, APR 8, 1988, 


10:57 AM Copyright HEWLETT-PACKARD CO. 1987 


001000* | COBCNTL.PUB.SYS Defaults are: 

QO2000*CONTROL LIST ,SOURCE ,NOCODE , NOCROSSREF ,ERRORS=100,NOVERBS, 
WARN 

QO3000*CONTROL LINES=60,NOMAP,MIXED, QUOTE=",NOSTDWARN,SYNC16 
OO1000$CONTROL USLINIT,MAP, VERBS 


001100 
001200 IDENTIFICATION DIVISION. 
001300 
001400 PROGRAM-ID. COBOLEX. 


001500 AUTHOR. NA RESPONSE CENTER. 
001600 DATE-WRITTEN. MAR. 15, 1988. 
001700 

001800 ENVIRONMENT DIVISION. 

001900 

002000 CONFIGURATION SECTION. 

002100 SOURCE-COMPUTER. HP-3000. 
002200 OBJECT-COMPUTER. HP-3000. 


002300 

002400 SPECIAL-NAMES. 

002500 CONDITION-CODE IS C-C. 
002600 


002700 INPUT-OUTPUT SECTION. 
002800 FILE-CONTROL. 


002900 SELECT PLAYER-FILE ASSIGN TO "PLAYER,DA". 
003000 

003100 

003200 DATA DIVISION. 

003300 

003400 FILE SECTION. 

003500 

003600 FD PLAYER-FILE LABEL RECORDS ARE STANDA 
RD 

003700 RECORD CONTAINS 80 CHAR 
ACTERS. 

003800 

003900 01 FD-PLAYER-RECORD. 

004000 05 STAT-REC PIC X(80). 

004100. 

004200 WORKING-STORAGE SECTION. 

004300 

004400 01 PLAYER-RECORD. 

004500 O05 FILLER PIC X(2). 

004600 05 PLAYER-NUM PIC 9(4). 

004700 05 AT-BATS PIC $9(4). 

004800 05 HITS PIC $9(4). 

004900 05 PLAYER-NAME PIC X(62). 

005000 05 BATTING-AVER PIC S9V999 VALUE ZERO. 
005100 


00047 


00048. 


000493 
00050 
00051 
00052 
00053 
00054 


005200 01 
005300 
005400 
005500 
005600 
005700 
005800 
005900 


OUT~-PLAYER-RECORD. 


05 
05 
05 
05 
05 
05 


FILLER 
OUT-PLAYER-NUM 
OUT-AT-BATS 
OUT-HITS 

OUT - PLAYER-NAME 
OUT - BATTING-AVER 
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PIC 
PIC 
PIC 
PIC 
PIC 
PIC 


X(2). 
9(4).. 
$9(4). 
$9(4). 
X(62). 
S9Vv999. 


PAGE 0002/COBTEXT COBOLEX 


00055 006000 01 TAB-PLAYER-RECORD. 

00056 006100 — 05 DISPLAY-TABLE OCCURS 100 TIMES INDEXED BY PLX. 
00057 006200 10 FILLER PIC X(2). 

00058 006300 10 TAB-PLAYER-NUM PIC 9(4). 

00059 006400 10 TAB-AT-BATS PIC S9(4). 

00060 006500 10 TAB-HITS PIC $9(4). 

00061 006600 10 TAB-PLAYER-NAME PIC X(62). 

00062 006700 10 TAB-BATTING-AVER PIC sgvggg. 

00063 006800 

00064 006900 O01 PLY PIC $9(4) COMP VALUE 100 

0. 

00065 007000 

00066 007100 01 END-OF-FILE-IND PIC X VALUE "N". 
00067 007200 88 END-OF-FILE VALUE "Y". 
00068 007300 

00069 OO T4OOKHKHHHHHHHHHEHKHHHHHHHHH 

00070 007500* BEGIN MAIN PROGRAM ¥#* 

00071 OO TEOO#HHHHHEHHHHHHKHHKKHHHHH HH 

00072 007700 

00073 007800 PROCEDURE DIVISION. 

00074 007900 
~ 00075 008000 OOO-MAIN-ROUTINE SECTION 01. 

00076 008100 

00077 008200 MOVE "N" TO END-OF-FILE-IND. 

00078 008300 

00079 008400 OPEN INPUT PLAYER-FILE. 

00080 008500 

00081 008600 

00082 008700 SET PLAX: TO: 1. 

00083 008800 PERFORM 100-PROCESS-DATA 

00084 008900 UNTIL END-OF-FILE. 

00085 009000 

00086 OOD 1 OOKHHHHHHKKHRHHHHHHHHHHHHHEH 

00087 009200 DO MORE PROCESSING # 

00088 OOG3IOOKHHHHHKHHHHHRHHHHHHKHHKHHE 

00089 009400 

00090 009500 SET. PLATO 144 

00091 009600 PERFORM 200-RPT-DATA UNTIL PLX = PLY. 

00092 009700 CLOSE PLAYER-FILE. 

00093 009800 STOP RUN. 

00094 009900 

00095 010000 100-PROCESS-DATA SECTION 02. 

00096 ~ 010100 

00097 010200 READ PLAYER-FILE RECORD INTO PLAYER-RECORD 
00098 010300 AT END MOVE "Y" TO END-OF-FILE-IND. 
00099 010400 

00100 010500 CALL “COBEXSUB" USING HITS, AT-BATS, BATTING-AVER. 
00101 010600 

00102 010700 IF PLX < PLY THEN 

00103 010800 SET PLX UP BY 1. 

00104 010900 MOVE HITS TO TAB-HITS(PLX). 

00105 011000 MOVE AT-BATS TO TAB-AT-BATS(PLX). 

00106 011100 MOVE BATTING-AVER TO TAB-BATTING-AVER(PLX). 
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00107 
00108 
00109 
00110 


011200 
011300 
011400 
011500 


MOVE PLAYER-NUM TO TAB-PLAYER-NUM(PLX). 

MOVE PLAYER-NAME TO TAB-PLAYER-NAME(PLX). 

DISPLAY TAB-PLAYER-NAME(PLX), TAB-PLAYER-NUM(PLY), 
TAB-BATTING-AVER(PLX). 
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PAGE 0003/COBTEXT COBOLEX 


00111 
00112 
00113 
00114 
00115 
00116 
00117 
00118 
00119 
00120 
00121 
00122 
00123 
00124 
00125 


011600 
011700 
011800 
011900 
012000 
012100 
012200 
012300 
012400 
012500 
012600 
012700 
012800 
012900 
013000 


200-RPT-DATA SECTION 03. 


SET PLX UP BY 1. 

MOVE TAB-HITS(PLX) TO OUT-HITS. 

MOVE TAB-AT-BATS(PLX) TO OUT-AT-BATS 

MOVE TAB-BATTING-AVER(PLX) TO OUT-BATTING-AVER.: 
MOVE TAB-PLAYER-NUM(PLX) TO OUT-PLAYER-NUM. 
MOVE TAB-PLAYER-NAME(PLX) TO OUT-PLAYER-NAME. 


CALL INTRINSIC "PRINT" USING OUT-PLAYER-RECORD, 
-80,%0. 
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PAGE 0004/COBTEXT COBOLEX SYMBOL TABLE MAP Saks . 
LINE# LVL SOURCE NAME BASE DISPL SIZE USAGE CATEGORY 
R OJ BZ 


FILE SECTION 


00000 FD PLAYER-FILE Q+2: 000332 000106 SEQUENTIAL 
00034 01 FD-PLAYER-RECORD Q+2: 000444 000120 DISP AN 
00035 05 STAT-REC Q+2: 000444. 000120 DISP AN 


WORKING-STORAGE SECTION 


00039 01 PLAYER-RECORD Q+2: 000564 000120 DISP AN 
00040 05 FILLER Q+2: 000564 000002 DISP AN 
00041 05 PLAYER-NUM Q+2: 000566 000004 DISP N 
00042 05 AT-BATS Q+2: 000572 000004 DISP NS 
00043 05 HITS Q+2: 000576 000004 DISP NS 
00044 05 PLAYER-NAME Q+2: 000602 000076 DISP AN . 
00045 05 BATTING-AVER Q+2: 000700 000004 DISP NS 
00047 01 OUT-PLAYER-RECORD Q+2: 000704 000120 DISP AN 
00048 05 FILLER Q+2: 000704 000002 DISP AN 
00049 05 OUT-PLAYER-NUM Q+2: 000706 000004 DISP N 
00050 05 OUT-AT-BATS Q+2: 000712 000004 DISP NS 
00051 05 OUT-HITS Q+2: 000716 000004 DISP | NS 
00052 05 OUT-PLAYER-NAME Q+2: 000722 000076 DISP AN 
00053 05 OUT-BATTING-AVER Q+2: 001020 000004 DISP NS 
00055 01 TAB-PLAYER-RECORD Q+2: 001024 017500 DISP AN 
00056 05 DISPLAY-TABLE | Q+2: 001024 000120 DISP AN 
0 

PLX Q+2: 000000 000002 INDEX NAME 
00057 10 FILLER Q+2: 001024 000002 DISP AN 
00058 10 TAB-PLAYER-NUM Q+2: 001026 000004 DISP N 
00059 10 TAB-AT-BATS Q+2: 001032 000004 DISP NS 
00060 10 TAB-HITS Q+2: 001036 000004 DISP NS 
00061 10 TAB-PLAYER-NAME Q+2: 001042 000076 DISP AN 
00062 10 TAB-BATTING-AVER Q+2: 001140 000004 DISP NS 
00064 O1 PLY Q+2: 020524 000002 COMP NS 
QO0066 01 END-OF-FILE-IND Q+2: 020526 000001 DISP AN 


00067 88 END-OF-FILE 
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PAGE 0005/COBTEXT COBOLEX SYMBOL TABLE MAP 
LINE# LVL SOURCE NAME BASE DISPL SIZE USAGE CATEGORY 


STORAGE LAYOUT 


ROJ BZ 


(#ENTRYS) (VALUES IN WORDS) 


INDEX TABLE (1) Q+i: 000000 000001 
START TABLE (3) Q+1: 000001 000006 
DISPLAY BUFFER Q+1: 000007 000144 
USER LABEL POINTER : Q+1: 000153 000002 
FILE TABLE (1) Q+1: 000155 000043 
TALLY Q+1: 000220 000002 
USER STORAGE Qt+1: 000222 010032 
RUNNING PICTURES Qt+1i: 010254 000003 
FIXUP AREA (1) Qt+1: 010257 000011 


POINTER AREA 


DB-5 
DB-4 
Q+1 
Q+2 
Q+3 
Q+4 
Q+5 
Qt6 
Q+7 
Q+10 
Q+11 
Q+12 
Q+13 
Q+14 


CURRENT VALUE OF Q FOR STORAGE AREA 
“PARM=” WORD - SWITCHES 

WORD ADDRESS OF STORAGE AREA 

BYTE ADDRESS OF STORAGE AREA 

DECIMAL POINT & COMMA 

# PARMS AND CURRENCY SIGN ac 
BYTE ADDRESS OF 9 WORD TEMPCELLS 


~WORD ADDRESS OF 1 WORD TEMPCELLS 


BYTE ADDRESS OF LITERAL POOL 
PLABEL OF SORT OR MERGE OUTPUT 
WORD ADDRESS OF START TABLE 

WORD ADDRESS OF USER LABEL POINTER - 
PREVIOUS VALUE OF DB-5 

RESERVED 
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PAGE O0006/COBTEXT COBOLEX 


LINE # 


00075 
00077 
00079 
00082 
00084 
00090 
00091 
00092 
00093 
00095 
00098 
00098 
00098 
00100 
00102 
00103 
00104 
00105 
00106 
00107 
00108 
00110 
00113 
00115 
00116 
00117 
00118 
001139 
00120 
00123 


PB-LOC 


000003 
000003 
000006 
000036 
000040 
000052 
000054 
000071 
000076 
000003 
000003 
000003 
000025 
000030 
000037 
000046 
000054 
000065 
000076 
000107 
000120 
000131 
000003 
000003 
000010 
000034 
000045 
000056 
000067 
000100 


# 


QO OO0-MAIN-ROUTINE 

MOVE 
OPEN 
SET 
PERFORM 
SET 
PERFORM 
CLOSE 
STOP 

100-PROCESS-DATA 
READ 
MOVE 
MOVE 
CALL 
IF 
SET 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
DISPLAY 

200-RPT-DATA 
SET 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
CALL 


O ERRORS, 0 QUESTIONABLE, O WARNINGS 


DATA AREA IS %010270 WORDS. 


CPU TIME = 0:00:04. 


PROCEDURE/VERB MAP Age 
PROCEDURE NAME/VERB INTERNAL NAME 


OOOMAINROUTI01 ’ 


100PROCESSDA02’ 


200RPTDATA03’ 


WALL TIME = 0:00:09. 
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Oe ae fed 
PAGE 0001 


00001 COBCNTL 
00002 COBCNTL 


00003 COBCNTL 
00004 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 


HEWLETT-PACKARD 32233A.01.07 
11:07 AM Copyright HEWLETT-PACKARD Co. 


001000+# 


COBCNTL.PUB.SYS Defaults are: 


[74] COBOL II/V 
1987 


FRI, APR 8, 1988, 


OO2000*CONTROL LIST ,SOURCE ,NOCODE ,NOCROSSREF , ERRORS= 100,NOVERBS, 


WARN 


OO3000*CONTROL LINES=60,NOMAP,MIXED,QUOTE=", NOSTDWARN, SYNC16 


OO1000$CONTROL SUBPROGRAM, MAP, VERBS 


001100 
001200 
001300 
001400 
001500 
001600 
001700 
001800 
001900 
002000 
002100 
002200 
002300 
002400 
002500 
002600 
002700 
002800 
002900 


IDENTIFICATION DIVISION. 
PROGRAM-ID. COBEXSUB. 
AUTHOR. NA RESPONSE CENTER. 
DATE-WRITTEN. MAR. 15, 
ENVIRONMENT DIVISION. 
DATA DIVISION. 
WORKING-STORAGE SECTION. 
LINKAGE SECTION. 

01 HITS 


01 AT-BATS 
01 BATTING-AVER 


CO Z0OOHHHHHHRHHHHRHHHHHHEHHHHHRHE 


003100* 


BEGIN SUB PROGRAM # 


COZ LOOK HKHKHHHKHHHKHHHEKHKKKHEK 


003300 
003400 
003500 
003600 
003700 
003800 
003900 
004000 
004100 


1988. 


PIC $9(4). 
PIC $9(4). 
PIC Sgvggg. 


PROCEDURE DIVISION USING HITS, AT-BATS, BATTING-AVER. 


000-SUB-ROUTINE. 


MOVE O TO BATTING-AVER. 


COMPUTE BATTING-AVER = HITS / AT-BATS. 


GOBACK. 
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PAGE 0002/COBTEXT COBEXSUB 


LINE# LVL SOURCE NAME 


ROJ BZ 


LINKAGE SECTION 


00021 01 
00022 01 
00023 01 


HITS 
AT-BATS 
BATTING-AVER 


SYMBOL TABLE MAP 
. _ BASE DISPL 


Q+20 000000 
Q+21 000000 
Q+22 000000 
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SIZE USAGE 


000004 DISP 
000004 DISP 
000004 DISP 


CATEGORY 


NS 
NS 
NS 


PAGE 0003/COBTEXT COBEXSUB SYMBOL TABLE MAP 
LINE# LVL SOURCE NAME BASE DISPL SIZE USAGE ~ CATEGORY 


ROJ BZ 
STORAGE LAYOUT (#ENTRYS) (VALUES IN WORDS) 
FIRST TIME FLAG Q+1: 000000 000001 
START TABLE (1) Q+1: 000001 000002 
USER LABEL POINTER Q+1: 000003 000002 
TALLY Q+1:. 000005 000002 
RUNNING PICTURES Q+1: 000007 000003 
FIXUP AREA (1) Qt+1: 000012 000011 
9 WORD TEMP CELLS (3) Q+1: 000023 000033: 


POINTER AREA 


DB-5 
DB-4 
Q+1 
Q+2 
Q+3 
Q+4 
Q+5 
Q+6 
Q+7 
Q+10 
Q+11 
Q+1i2 
Q+13 
Q+14 
Q+15 
Q+20 


CURRENT VALUE OF Q FOR STORAGE AREA 
“PARM=* WORD - SWITCHES 

WORD ADDRESS OF STORAGE AREA 

BYTE ADDRESS OF STORAGE AREA 

DECIMAL POINT & COMMA 

# PARMS AND CURRENCY SIGN 

BYTE ADDRESS OF 9 WORD TEMPCELLS 

WORD ADDRESS OF 1 WORD TEMPCELLS 

BYTE ADDRESS OF LITERAL POOL 

PLABEL OF SORT OR MERGE OUTPUT 

WORD ADDRESS OF START TABLE 

WORD ADDRESS OF USER LABEL POINTER 
PREVIOUS VALUE OF DB-5 

RESERVED 

TO Q+17 WORD ADDRESSES FOR PARMs/EXTs 
TO Q+22 BYTE ADDRESSES FOR PARMs/EXTs 
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PAGE 0004/COBTEXT COBEXSUB PROCEDURE/VERB MAP 
LINE # PB-LOC # PROCEDURE NAME/VERB - INTERNAL NAME 

00031 000030 0 000-SUB-ROUTINE COBEXSUB 

00033 000030 _ MOVE- 

00034 000032 COMPUTE 


00036 000074 EXIT PGM © 
O ERRORS, O QUESTIONABLE, O WARNINGS 


DATA AREA IS %000056 WORDS. 
CPU TIME = 0:00:01. WALL TIME = 0:00:04. 


PROGRAM FILE COBP.PUB.COBACCT 


COBEXSUB 0 


NAME 

COBEXSUB 

DIVD 
COBEXSUB’S 
COBEXSUB’ 
SEGMENT LENGTH 


200RPTDATA03’ 


NAME 
200RPTDATA03’ 
PRINT 
IO’CLOSE’FILES 
TERMINATE ” 
COBOLEX 

DEBUG 
COBOLTRAP 
QOOMAINROUTIO1 ’ 
1 0OPROCESSDA02’ 
IO’FTAB’INIT’C 
SEGMENT LENGTH 


100PROCESSDA02’ 


NAME 
100PROCESSDA02” 
COBEXSUB 

C’ DISPLAY 

C’ DISPLAY ’FIN 
C’ DISPLAY “INIT 
IO’ READSEQ’C 
SEGMENT LENGTH 


OOOMAINROUTIO4 ” 


NAME 
OOOMAINROUTIO1 ’ 
IO’CLOSE FILES 
I0’CLOSE’C 

IO’ OPEN’C 


Ss ieice 


1 
STT 


NOM OF DB WwW — 


10 
11 
12 


2 
S 


OunRwr= 4 


2 


CODE ENTRY SEG 
0 3 
: 
0 0 
107 107 
234 


CODE ENTRY SEG 
0 0 


WN oN 


114 114 


VM Ws wv 


254 


CODE ENTRY SEG 
0 0 


9 3 NY NY © 


220 


CODE ENTRY SEG 
0 0 


26 


TERMINATE ’ 5 : 


SEGMENT LENGTH 114 
PRIMARY DB 0 INITIAL STACK 2260 CAPABILITY 600 
SECONDARY DB 10346 INITIAL DL 0 TOTAL CODE 1044 
TOTAL DB 10346 MAXIMUM DATA £ TOTAL RECORDS 54 
ELAPSED TIME 00:00:01.847 PROCESSOR TIME 00:00.818 


oy 
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